home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / OCI72 / OCI72.DEI < prev    next >
Encoding:
Text File  |  1995-10-10  |  2.6 KB  |  69 lines
  1. /* Copyright (c) Oracle Corporation 1995.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     oci72.dei - V3 deinstallation script for Windows 95 OCI 7.2
  5.  
  6.   DESCRIPTION
  7.     This script deinstalls Windows 95 OCI 7.2.2
  8.  
  9.   MODIFIED    DD-MMM-YY  Reason
  10.     echien    19-APR-95  Creation
  11.     mclose    19-JUL-95  Adopted from Windows 3.1 and modeified for Windows 95
  12.  
  13. *****************************************************************************/
  14. {
  15.   { doit = execute("%installer_home%\win95.dei"); }
  16.   [
  17.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2","The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these product(s).")));
  18.   ]
  19.  
  20.   if (doit)
  21.     {
  22.       /**********************************************************************
  23.          Ensure that the necessary environment variables are bound
  24.        **********************************************************************/
  25.  
  26.   if (doit)
  27.     {
  28.       /**********************************************************************
  29.          Bind all NLS deinstall strings here...
  30.        **********************************************************************/
  31.  
  32.       unregistering = nls("unregistering","Unregistering %%registry_label%%...");
  33.       deinst_ocifiles = nls("deinst_ocifiles","Removing %%registry_label%% Files...");
  34.       deinst_ocisamples = nls("deinst_ocisamples","Removing %%registry_label%% Sample Programs...");
  35.       deinst_script = nls("deinst_script","Removing %%registry_label%% Installation Scripts...");
  36.       modify_config = nls("modify_config","Modifying %%product_label%% Environment Variables...");
  37.  
  38.  
  39.       /**********************************************************************
  40.          Continue with the deinstallation
  41.        **********************************************************************/
  42.  
  43.       if (registered("w95rsf72"))
  44.         {
  45.          dependent = registration("w95rsf72");
  46.          unreference(dependent,current_registry);
  47.          deinstall(dependent);
  48.         }
  49.       ui_product(registry_label);
  50.  
  51.       permit_retry_operations = TRUE;
  52.  
  53.       ui_action(instantiate(unregistering));
  54.       unregister(current_registry);
  55.  
  56.       ui_action(instantiate(deinst_ocisamples));
  57.       remove(ocisamples);
  58.  
  59.       ui_action(instantiate(deinst_ocifiles));
  60.       remove(ocifiles);
  61.  
  62.       ui_action(instantiate(deinst_script));
  63.       remove(deinstl);
  64.  
  65.       permit_retry_operations = FALSE;
  66.     }
  67.   }
  68. }
  69.